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AMPLITUDE DISTRIBUTION 


DECUS No. 8-243 


DECUS Program Library Write-up 

AB STRAC T 

The program calculates the amplitude distribution of 
a set of points which are given on tape or are typed 
on the Teletype. The output is via two D/A Converters. 
The mean, the variance and the standard deviation are 
typed on the teleprinter. 

R E QUIR EMENTS 

Storage 

The program reouires the following core sections: 

7; 63 - 1400; 

Additional place must he reserved for a buffer beginning 
at 1400, which contains the outcoming data. 

Equipment 

Basic PDP8, two D/A converters, x-y Plotter. 

USAGE 
Loading 

The program is loaded by the Binary Loader. It uses the 
Floating Point Package No. 3. 

Calling Sequence 
None. 

Switch Setting 

The switch register is only used to start the program. 


Start Up 

Load the program and the Floating Point Package No. 3. 
Start the program at location 200. The program will type 
the next doings. 









RESTRICTION 


The smallest class width, which can be used, is 4. 
The number of data is unlimited. 


D ESCRIPTI ON 


Discussion 

The program types a head and waits for the input of the 
class width. Herewith the number of classes is calculated 
by: 


NRCLA 


FK 2048 
FDX 


with NRCLA number of classes 

FK 2048 2048 1()v the full range of the 
input data (-1024 to +1024) 

FDX class width 

Next the program requests the data input and halts. The 
tape with the data is loaded in the High Speed Reader 
and by hitting the "Continue" key, the program reads the 
characters from the tape. The leader trailer codes are 
ignored. If the program has read a full word the number 
is classified in the appropriate class and the specified 
core is incremented by one. The appropriate core is cal¬ 
culated by: 

CORE = 3 . POICLA + BIJFBEG 

wj th 

CORE appropriate core address 
BUFBEG Buffer begin 
POICLA Class Number 
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The class number POICLA, which is multiplied by three to 
get the exact core address in floating point format, is 
calculated by the expression: 

POICLA = ¥AL / FDX + NRCLA/2 
with VAL value from tape. 


The content of the calculated core address is incremented 
by one in floating point arithmetic. The values and their 
squares are summed and the values are counted. The end of 
the data tape is recognized by the leader trailer code. 
Then the mean of the data set is calculated by 



and typed out. 

The variance of the data is calculated by 
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s 



i/ N ( VALr)/(N-l). 

1 ' 


and the standard deviation by squarerooting the variance. 


To load the D/A converters (10 bit) properly, the buffer 
which contains the distribution in floating point format 
must be scaled. For this purpose the maximal value of 
the buffer is typed out and a scaling factor is read in. 
The scaling factor must be greater than the maximal value. 
Before the plotting of each value it is scaled by the ex¬ 
pression 


y = 1777g . x/FSCA - 1000 g 

For this the full range of the D/A Converters (- lOOOg), 
which have the device codes No. 55 and No. 56, can be 
used. The increment ax for the x-axis is calculated by 
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Ax = FDX/2. 

After each loading of the D/a Converter the program waits 
to allow the settling of the pen. The program draws the 
distribution like a histrogram. A second program, starting 
at location 1200,draws the normal distribution with the 
variance and the maximal value found in the main program. 

Also the calculated mean is taken into consideration. The 
formula is 

y = FMAX exp [- (x - x)/2s 2 ] . 

This function can be plotted to compare the data set with 
the appropriate normal distribution. It is also possible 
to type the dataset on the teletype. To do so, a patch must 
be read in. The typed value must be greater than 1 but 
smaller than 1024. 

Example 

An example is given in the appendix. It shows the amplitude 
distribution of a data set and the appropriate normal distri¬ 
bution. The teletype output, which is organized in a con¬ 
versational form, is shown with the values and the statistical 
constants. 

FORMAT 
Input Data 

The input of the constants FDX and FSCA is on the Teletype 
in floating point format, while the data set is read by the 
High Speed Reader in Binary Format (two characters per word). 
The tape must begin and end with Leader Trailer code. By 
reading in a patch it is also possible to type the values 
on the keyboard. 

EXECUTION TIME 

The execution time depends on the number of data which are 
read by the HSR and on the number of classes. 






PROGRAM 

Core Map 

Core Sections 

Content 

41 - 

62 

FAC 

63 - 

177 

Constants 

200 - 

1177 

Main Program 

1200 - 

1377 

Normal Distribution 
Drawing 

1400 - 

5377 

j 

Max. Buffer for Amplitude 
Distribution 

i 

4757 - 

7777 

FFP No. 3, Loaders 
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AM PL I TUDF. DI STRI BUTION 


CLASS WIDTH IN BITS < GREATER THAN 4) 20 
TYPE DATA SET. END WITH $ 


1 00 
1 00 
1 00 
1 00 
1 00 
- 100 
- 100 
- 1 00 
- 100 
- 100 
200 
2 00 
2 00 
2 00 
- 200 
- 200 
- 280 
0 
0 
0 
0 
0 
0 
0 

300 
- 300 
400 
500 

5 ', 


N : + 0 . 2800000£+02 

MEAN! +0.3928571E+02 
VARIANCE: +0.3432540E+05 
STANDARD DEVIATION: +0. 185271 1 E+03 


MAX = +0. 7000000E+01 
DIVIDE BY 8 
SET PEN 


NORMAL DI STRI BUTION 
SET, PEN 
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/ DFVLR-3RG.-L-LA 
/ IJSE 22 - 00 
/ AOPLiTUDF DI SIR! PUT I. ON 
/ JULY 17, 10 69 

/ fDP a, BASIC CONFIG. 

/ FLOAT I 'JO POINT 6 3 

/ 

/ 

/ DEFINITIONS TO ASSEMBLER 
/ 

SOROJT-P 
FEXP = 6 
INPUT=1 3 
OUTPUT 3 1 A 
OALLI N= J NS 1 7 

EX IT-FEXT 
/ . 

•* / 

0007 5600 5600 / POINTER TO lMTERPRETEP 

/ 

/ BUFFER 

/ 

* 1 400 

1400 O000 BUFF), 0 / BUFFFR 

/ 

*63 

/ CONSTANT? A'JD STORAGE? 


/ 


00 63 

1 40 D 

P )PUF 1 , 

miFFl 

/ 

P.F61 N OF B"FFFR 

00 6 4 

0000 

2 PQGR, 

0 



00 65 

0000 

M2CLA * 

0 

/ 

NUNHEP OF CLASSES 

00 66 

0000 

C T R > 

0 

/ 

COUNTER 

00 6 7 

0000 

;\S 

0 

/ 

NINFER JE DATA 

00 70 

0000 

3 A VP, 

0 



00 7 1 

0000 

FMRCL2* 

0 



00 72 

0000 


0 



O0 73 

0000 


0 



00 7 4 

0000 

F • \l y 

0 

/ 

NUOEER OF DATA 

00 7 5 

0000 


0 



00 7 6 

0000 


0 



00 7 7 

0000 

F A 0 > 

0 

/ 

>i FA N 

0 1 00 

0000 


0 



0 1 0 1 

0000 


0 



0 102 

0(100 

F T F OP 1 > 

0 

/ 

TEMPORARY STORAGF 

0 10 3 

0000 


0 



1104 

0000 


0 



v) 1 0 5 

0000 

FTFOP2> 

0 



0 1 0 6 

0000 


0 



0 1 O 7 

0000 


0 



0 1 1 0 

0000 

FTF0P3, 

0 



0 1 1 1 

0000 


0 



O 1 1 2 

0000 


0 



O 1 1 3 

0000 

FVARIAj 

0 

/ 

variance 

0 1 1 4 

0000 


0 



0 1 1 5 

0000 


0 



0 1 1 6 

0000 

F. V 1A A , 

0 



0 1 1 7 

0000 


0 



0 1 20 

0000 


0 



1121 

0000 

FDX > 

0 

/ 

CLASS WIDTH 
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0122 

0000 


0 

0123 

0000 


0 

0124 

0000 

FZER, 

0 

0125 

0000 


0 

0126 

0000 


0 

0127 

000 1 

El , 

1 

0130 

2000 


2000 

0131 

0000 

/ 

0 



/ 


0132 

0000 

ELOEIX, 

0 

0133 

7200 


CLA 

0134 

1044 


TAD 44 

0135 

7540 


SZA SMA 

0136 

5141 


JMP • + 3 

0137 

7200 


CLA 

0 1 40 

5532 


JMP I FLOFIX 

0141 

1 1 57 


TAD Ml 3 

0142 

7 450 


SNA 

0143 

5155 


JMP DONE 

0144 

3044 


DC A 44 

0145 

7100 

GO, 

CLL 

01 46 

1045 


TAD 45 

01 47 

7510 


SPA 

01 50 

7020 


CML 

0151 

7010 


RAR 

01 52 

3045 


DCA 45 

0153 

2044 


ISZ 44 

0154 

5145 


JMP GO 

0155 

1045 

DONE, 

TAD 45 

0156 

5532 


JMP I FLOFIX 

0157 

7765 

M1 3, 

/ 

/ 

-13 

01 60 

0000 

FIX FLO, 

0 

01 61 

3045 


DCA 45 

01 62 

3046 


DCA 46 

01 63 

1171 


TAD C13 

0164 

3044 


DCA 44 

01 65 

4407 


JMS I 7 

01 66 

7000 


FNOR 

0167 

0000 


FEXT 

01 70 

5560 


JMP I FIXFLO 

0171 

0013 

C 1 3, 

/ 

/ ' 

*200 

/ 

1 3 

0200 

7200 

START, 

CLA 

0201 

6046 


TLS 

0202 

4342 


JMS INITI A 

0203 

4777 


JMS HEAD 

0204 

4776 


JMS ACCEPT 

020 5 

440 7 


CALLIN 

0206 

5256 


FGET FK2048 

020 7 

4121 


FDIV FDX 

0210 

0000 


EXIT 

021 1 

4132 


JMS FLOFIX 

0212 

3065 


DCA NRCLA 

0213 

1065 


TAD NRCLA 

0214 

71 10 


RAR CLL 


/ ZERO 

KS. 


/’ONE 


/ COM VERSION! FLOAT TO FIX 

/ FETCH EXPO MEMT 
/ IS VALUE <1 
/ MO 

/ YES, FIX IT TO ZERO 
/ SET BINARY POINT TO RIGHT 

/ IT IS ALREADY THERE 
/ MO, SET SCALE COUNT 

/ FETCH MANTISSA 
/ IS IT <0 

/ YES, A 1 IN LEFT BIT 
/ SCALE RIGHT 
/ RESTORE 

/ TEST, IF SHIFTED ENOUGH 
/ NO 

/ ANSWER IN AC 


/ CONVERT FIX TO FLOAT 
/ INTO HIGH ORDFR MANTISSA 
/ CLEAR LOW ORDER MANTISSA 

/ 1 1 

/ INTO EXPONENT 
/ NORMALIZE 
/ EXIT 

/ 


/ SET FLAG 
/ INITIALIZE PROGRAM 
/ TYPE HEAD 

/ ACCEPT CLASS WIDTH FDX 

/ GET CONSTANT 
/ GET NUMBER OF CLASSES 

/ CONVERT 

/ STORE NUMBER OF CLASSES 
/ GET HALE OF NRCLA 
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021 5 

4160 


JMS FIXFLO 

021 6 

440 7 


CALLIN 

0217 

60 71 


EPUT ENRCL2 

0220 

0000 


EXIT 

0221 

4775 


JMS TAPBEG 

0222 

741 0 


SKP 

0223 

4774 

LOOP 1# 

JMS DATAIN 

0224 

4773 


JMS DATSUM 

0225 

4407 


CALLIN 

0226 

5105 


FGET ETEMP2 

0227 

4121 


EDIV EDX 

0230 

1071 


EADD ENRCL2 

0231 

0000 


EXIT 

0232 

4132 


JMS ELOFIX 

0233 

3261 


DCA POICLA 

0234 

1261 


TAD POICLA 

0235 

1261 


TAD POICLA 

0236 

1261 


TAD POICLA 

0237 

1063 


TAD POBUE1 

0240 

3064 


DCA PRO GR 

0241 

440 7 


CALLIN 

0242 

5464 


EGET I PROGR 

0243 

1 127 


EADD El 

0244 

6464 


EPUT I PROGR 

0245 

0000 


EXIT 

0246 

5223 


JMP LOOP 1 

0247 

4 7 72 

r 

TAPEND# 

JMS XMEAN 

0250 

4771 


JMS NORM 

0251 

4770 


JMS DISP 

0252 

1 767 


TAD YBEG 

0253 

6566 


6566 

0254 

7402 


HLT 

0255 

5766 

/ 

EK2048# 

JMP NBSTAR 

0256 

001 4 

1 4 

0257 

2000 


2000 

02 60 

0000 


0 

0261 

0000 

POICLA# 

/ 

/DIGITAL 
/MESSAGE 
/ 

MESAGE# 

0 

. 8-18-U 
: TYPE-OUT 

02 62 

0000 

0 

0263 

7240 

* 1 

CLA CMA 

0264 

1262 


TAD MESAGE 

0265 

3010 


DCA 10 

0266 

1 410 


TAD 110 

0267 

3300 


DCA MSRGHT 

0270 

1 300 


TAD MSRGHT 

0271 

7012 


RTR 

0272 

7012 


RTR 

0273 

7012 


RTR 

0274 

4301 


JMS TYPECH 

0275 

1 300 


TAD MSRGHT 

02 7 6 

4301 


JMS TYPECH 

0277 

5266 


JMP MESAGE+ 4 

0300 

0000 

MSRGHT# 

0 

0301 

0000 

TYPECH# 

0 

0302 

0332 


AND MASK 77 

0303 

7450 


SNA 


/ CONVERT 
/ STORE 

/ READ DATA TAPE 

/ READ VALUE 
/ CALCULATE MEAN 

/ GET VALUE 

/ MAKE IT POSITIVE 
/ CLASSI El ED 
/ CONVERT TO El X 
/ STORE CLASS NUMBER 
/ GET NUMBER 

/ MULTIPLE BY THREE 
/ HAVE CLASS ADDRESS 
/ STORE ADDRESS 

/ GET CLASS CONTENT 
/ ADD ONE 
/ STORE AGAIN 


/ END OF TAPE* GET MEAN 
/ NORMALISE FOR OUTPUT 
/ PLOT BUEFER 

/ RESET PEN 
/ END 

/ DRAW NORMAL DISTRIBUTION 


/SET CCAC>=-1 
/ADD LOCATION 
/AUTO-INDEX REGISTER 
/FETCH FIRST WORD 
/SAVE IT 


/ROTATE 6 BITS RIGHT 

/TYPE IT 
/GET DATA AGAIN 
/TYPE RIGHT HALE 
/CONTINUE 

/TEMPORARY STORAGE 

/TYPE CHARACTER IN C<AC)6-11 

/IS IT END OF MESSAGE? 
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030 4 

5410 


JMP I 10 

/YES5 EXIT 

0305 

1 333 


TAD M40 

/SUBTRACT 40 

030 6 

7 500 


SMA 

/ < 40? 

030 7 

53i 2 


JMP .+3 

/NO 

0310 

1 334 


TAD C340 

/YES: ADD 300 

031 1 

5325 


JMP MTP 

/TO CODES <40 

0312 

1 335 


TAD M3 

/SUBTRACT 3 

0313 

7440 


SZA 

/IS IT ZERO? 

0314 

531 7 


JMP .+3 

/NO 

031 5 

1336 


TAD C212 

/YES: CODE 43 IS 

031 6 

532 5 


JMP MTP 

/LINE-FEED (212) 

031 7 

1337 


TAD M2 

/SUBTRACT 2 

0320 

7440 


SZA 

/IS IT ZERO? 

0321 

5324 


• JMP .+3 

/NO 

0322 

1 340 


TAD C215 

/YES: CODE 45 IS 

0323 

5325 


JMP MTP 

/CARRIAGE-RETURN (215) 

0324 

1 341 


TAD C245 

/ADD 200 TO OTHERS >40 

0325 

6041 

MTP, 

TSF 

/TRANSMIT CHARACTER 

032 6 

532 5 


JMP .-1 


032 7 

60 46 


TLS 


0330 

7200 


CLA 

/.SET: CLEAR C(AC) 

0331 

5 701 

/ 

JMP I TYPECH 

/RETURN 



/ 

/CONSTANTS 


0332 

00 77 

MASK77# 

77 


0333 

7740 

M 40 , 

-40 


0334 

0340 

C340 , 

340 


0335 

7775 

M3, 

-3 


0336 

0212 

C2! 2, 

212 


0337 

7776 

M2, 

-2 


0340 

0215 

C21 5, 

215 


0341 

0245 

C24S, 

/ 

/ 

/ 

INITIAL 

245 


0342 

0000 

0 


0343 

440 7 


CALLIN 


0344 

5124 


FGET FZER 


0345 

6074 


FPUT FN 

/ CLEAR FN 

03.4 6 

6102 


FPUT FTEMP1 

/CLEAR FTEMP1 

0347 

6110 


FPUT FTEMP3 

/ CLEAR FTEMP3 

0350 

0000 


EXIT 


0351 

7240 


STA 

/ SET AC TO -1 

0352 

1063 


TAD POBUF1 


0353 

3010 


DCA 10 

/ SET BUFFER ENTRY 

0354 

1362 


TAD M3000 


0355 

3066 


DCA CTR 

/ SET COUNTER 

0356 

3410 


DCA I 10 

/ CLEAR BUFFER' 

0357 

2066 


ISZ CTR 

/ ENOUGH ? 

0360 

5356 


JMP .-2 

/ NO 

0361 

5742 


JMP I INITIA 

/ YES, EXIT 

0362 

5000 

M3000, 

/ 

-3000 


0366 

1200 

/ 

PACE 



0367 

1057 




0370 

1000 




0371 

0675 




0372 

0 600 




0373 

0 540 
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0374 

0 52 6 





037 5 

0 455 





0376 

0 423 





0377 

0 400 

/ 

/ 




0 40 0 

0000 

HEAD, 

0 

/ 

TYPE HEAD 

0401 

4777 


JMS CRTLF 

/ 

TYPE CR AND LF 

0402 

4777 


JMS CRTLF 



0403 

4776 


JMS MESAGE 

/ 

TYPE TEXT 

040 4 

0115 


TEXT !AM 



0 40 5 

201 4 

PL 




040 6 

1 124 

1 T ' - . 




040 7 

2 50 4 

UD 




0410 

0 540 

E 




0411 

041 1 

DI 




0412 

2324 

ST 



i 

041 3 

221 1 

RI 




041 4 

0225 

BIJ 




041 5 

241 1 

TI 




041 6 

1 716 

ON 




041 7 

0000 

i 




0420 

4777 


JMS CRTLF 

/ 

TYPE CR AND LF 

042 1 

4777 


JMS CRTLF 



0422 

5600 

/ 

JMP I HEAD 

/ 

EXIT 

0423 

0000 

ACCEPT, 

0 

/ 

ACCEPT CLASS WIDTH 

0424 

4776 


JMS MESAGE 

/ 

TYPE TEXT 

0425 

031 4 


TEXT !CL 



042 6 

0123 

AS 




0427 

2340 

S 




0430 

271 1 

WI 




0431 

0 424 

DT 




0432 

10 40 

H 




0433 

1116 

IN 


. 


0434 

4002 

B 




0435 

1 124 

IT 




0436 

2340 

S 




0437 

500 7 

( G 




0440 

220 5 

RE 




0441 

0124 

AT 




0442 

0 522 

ER 




0443 

402 4 

T 



- 

0444 

1001 

HA 




0445 

1 640 

N ; 




0446 

6451 

4) 




0447 

4000 

I 




0450 

440 7 


CALLIN. 



0451 

0013 


INPUT 

/ 

GET VALUE 

0452 

6121 


FPUT FDX 

/ 

STORE 

0453 

0000 


EXIT 



0454 

5623 

/ 

JMP I ACCEPT 



0455 

0000 

TAPBEG, 

0 

/ 

READ DATA TAPE 

0456 

4776 


JMS MESAGE 

/ 

TYPE TEXT 

0457 

1 41 7 


TEXT !LO 



0460 

0104 

AD 

‘ 



0461 

4024 

T 




0462 

0120 

AP 




0463 

0 540 

E 




0464 

1116 

IN 







Ill: I 


0465 

4010 

H 


0466 

2 322 

SR 


0467 

5640 

• 


0470 

101 1 

HI 


0471 

2440 

T 


0472 

031 7 

CO 


0473 

1 62 4 

NT 


0474 

1116 

IN 


0475 

2 50 5 

UE 


0476 

5600 

. ! 


047 7 

4777 


JMS CRTLF 

0 500 

7 402 


HLT 

0501 

431 6 


JMS. REAPR 

0502 

1 324 


TAD M200 

0503 

7450 


SNA 

0504 

5301 


JMP .-3 

050 5 

1 32 5 


TAD P200 

0 50 6 

7106 


CLL RTL 

0507 

7006 


RTL 

0510 

7510 


SPA 

051 1 

5302 


JMP .-7 ' 

0512 

700 6 


RTL 

051 3 

431 6 


JMS REAPR 

051 4 

30 70 


DCA SAVE 

051 5 

5655 

/ 

/ 

JMP I TAPPEG 

051 6 

0000 

REAPR* 

0 

0 51 7 

601 4 


RFC 

0 520 

601 1 


RSF 

0521 

5320 


JMP .-1 

0 522 

6012 


RRB 

0 523 

571 6 


JMP I REAPR 

0524 

7600 

M200* 

-200 

0 52 5 

0200 

P200* 

/ 

/ 

/ 

200 

0526 

0000 

DATAIN* 

0 

0527 

431 6 


JMS REAPR 

0530 

7106 


CLL RTL 

0531 

7006 


RTL 

0532 

7510 


SPA 

0533 

5775 


JMP TAPEND 

0534 

700 6 

; 

RTL 

0535 

431 6 


JMS REAPR 

0536 

3070 


DCA SAVE 

0537 

5726 

/ 

JMP I DATAIN 

0 540 

0000 

DATSUM* 

0 

0541 

10 70 


TAD SAVE 

0542 

4160 


JMS FIXFLO 

0543 

440 7 


CALLIN 

0544 

6105 


FPUT FTEMP2 

0545 

510 5 


FGFT FTEMP2 

0546 

1 102 


FADD FTEMPI 

0547 

6102 


FPUT FTEMP1 

0550 

510 5 


FGET FTEMP2 

0551 

310 5 


FMPY FTEMP2 

0552 

1110 


FADD FTEMP3 

0553 

61 10 


FPUT FTEMP3 


/ TYPE CR AND LF 
/ WAIT 

/ read CHARACTER 

/ CHECKING FOR LEADER 
/ FOUND LEADER 


/ CHANNEL 8 IN AC0 


/ A SC II CODE* IGNORE 

/ READ SECOND HALF 
/ SAVE 


/ READ CHARACTFR 


/ READ DATA 
/ READ FIRST HALF 


/ CHANNEL 8 IN AC0 
/ END OF TAPE ? 

/ YES 

/ READ SECOND HALF 
/ SAVE 


/ ADD DATA 

/ CONVERT 

/ STORE 

/ADD SUM 
/ STORE AGAIN 

/ SQUARE VALUE 
/ ADD ALL 
/ STORE AGAIN 


13 




0554 

5074 


FGET FN 



0555 

1127 


FADD FI 

/ 

UPDATE M 

0556 

60 7 4 


FPUT FN 



0557 

0000 


EXI T 



0 560 

5740 

/ 

JMP I DATSIJM 



0575 

0247 

/ 

PAGE 




0576 

0262 





0577 

0657 

/ 




0600 

0000 

/ 

XMEAN* 

0 

/ 

CALCULATE MEAM 

0601 

4257 


JMS CRTLF 



0 602 

4777 


JMS MESAGE 

/ 

TTPE TEXT 

060 3 

1 672 


TEXT !N: 



0604 

4000 

i 




0605 

4407 


CALLIN 



0 60 6 

5074 


FGET FN 

/ 

GET NUMBER OF DATA 

0607 

001 4 


OUTPUT 

/ 

TYPE NUMBER 

0610 

0000 


EXIT 



061 1 

4777 


JMS MESAGE 

/ 

TYPE TEXT 

0612 

1 50 5 


TEXT !ME 



061 3 

0116 

AN 




061 4 

7240 

• 

• 




061 5 

0000 

t 




0 61 6 

4407 


CALLIN 



061 7 

5102 


FGET FTEMP1 

/ 

GET SUM OF DATA 

0620 

4074 


FDIV FM 

/ 

DIVIDE BY M 

0621 

6077 


FPUT FXM 

/ 

STORE 

0622 

5077 


FGET FXM 



0623 

0014 


OUTPUT 

/ 

TYPE MEAN 

0624 

0000 


EXIT 



0625 

4777 


JMS MESAGE 

/ 

TYPE TEXT 

0626 

2 601 


TEXT !VA 



0 62 7 

221 1 

RI 




0630 

0116 

AIM 




0631 

0305 

CE 




0632 

7240 

• 

• 




0633 

0000 

• 




0634 

440 7 


CALLIN 

♦ 


0635 

5102 


FGET FTEMP1 



0636 

3102 


FMPY FTEMP1 

/ 

SQUARE SUM 

0637 

4074 


FDIV FM 

/ 

DIVIDE BY N 

0640 

6102 

: 

FPUT FTEMP1 

/ 

STORE 

0641 

5110 


FGET FTEMP3 



0642 

2102 


FSUB FTEMP1 



0643 

6102 


FPUT FTEMP1 



0644 

50 74 


FGET FM 



0645 

2127 


FSIJB FI 

/ 

HAVE N-l 

0646 

6110 


FPUT FTEMP3 

/ 

STORE 

0 647 

5102 


FGET FTEMP1 



0650 

4110 


FDIV FTEMP3 

/ 

HAVE VARIANCE 

0651 

61 13 


FPUT FVARIA 

/ 

STORE VARIANCE 

0652 

51 1 3 


FGET FVARIA 



0653 

00 1 4 


OUTPUT 

/ 

TYPE VARIANCE 

0654 

0000 


EXIT 



0655 

4776 


JMS STADEV 

/ 

TYPE STANDARD DEVIATION 

0656 

5600 

/ 

JMP I XMEAM 



0657 

0000 

/ 

CRTLF, 

0 

/ 

TYPE CARRIAGE RETURN 






/ AND LINE FEED 


0 660 

1273 


TAD CR 

0661 

4266 


JMS TYPE 

0662 

1274 


TAD LF 

0663 

4266 


JMS TYPE 

0664 

7200 


CLA 

0665 

5657 


JMP I CRTLF 

0666 

0000 

TYPE, 

0 

0667 

6041 


TSF 

0670 

5267 


JMP .-1 

0671 

6046 


TLS 

0672 

5666 


JMP I TYPE 

0673 

0215 

CR, 

215 

0674 

7775 

LF, 

/ 

/ 

-3 

0675 

0000 

NORM, 

0 

0676 

1063 


TAD POBUF1 

0677 

3064 


DCA PROGR 

0700 

1065 


TAD NRCLA 

0701 

7041 


CIA 

0702 

3066 


DCA CTR 

070 3 

440 7 


CALLIN 

0704 

5124 


FGET FZER 

0 70 5 

6102 


FPUT FTEMP1 

0706 

0000 


EXIT 

0 70 7 

440 7 

NOLOOP, 

CALLIN 

0710 

5464 


FGET I PROG 

071 1 

2102 


FSUB FTEMP1 

0712 

0000 


EXIT 

«071 3 

1045 


'TAD 45 

071 4 

7710 


SPA CLA 

0715 

5322 


JMP .+5 

071 6 

440 7 


CALLIN 

071 7 

5464 


FGET I PROG 

0720 

6102 


FPUT FTEMP1 

0721 

0000 


EXIT 

0722 

2064 


ISZ PROGR 

0723 

2064 


ISZ PROGR 

0 724 

2064 


ISZ PROGR 

0 72 5 

2066 


ISZ CTR 

0726 

530 7 


JMP NOLOOP 

0727 

4777 


JMS MESAGE 

0730 

1 501 


TEXT !MA 

0731 

3040 

X 


0732 

* 7540 

= 


0733 

0000 

i 


0734 

440 7 

• 

CALLIN 

0735 

5102 


FGET FTEMP1 

0736 

61 1 6 


FPUT FMAX 

0737 

51 1 6 


FGET FMAX 

0740 

0014 


OUTPUT 

0741 

0000 


EXIT 

0742 

4777 


JMS MESAGE 

0743 

041 1 


TEXT !DI 

0744 

26U 

VI 


0745 

0 40 5 

DE 


0746 

4002 

B 


0747 

3140 

Y 


0750 

0000 

» 


0751 

440 7 


CALLIN 

0752 

0013 


INPUT 


/ TYPE CHARACTER 


/ NORMALIZE 
/ SET BUFFER ENTRY 

/ SET COUNTER 

/ CLEAR TEMPORARY STORAGE 

/ GET VALUE 
/ SUBTRACT MAX 

/ CHECK SIGN OF DIFFERENCE 

/ FOUND NEW MAX 
/ STORE NEW MAX 

/ UPDATE POINTER 
/ HAVE ALL CHECKED ? 

/ NO 

/ TYPE.TEXT 

/ GET MAX 
/ STORE 

/ TYPE IT 

/ TYPE TEXT 


/ GET SCALING FACTOR 


15 



0753 

63 5 6 


FPU 1 F5UH 

0754 

0000 


EXIT 

0755 

5675 


JMP I NORM 

0756 

0000 

FSCA, 

0 

0757 

0000 


0 

0 760 

0000 

/ 

0 

0761 

0000 

DELAY, 

0 

0762 

1 371 


TAD DELCTR 

0763 

3372 


DCA DELCR1 

0764 

2373 


ISZ DELCR2 

0765 

5364 


JMP .-1 

0766 

2372 


ISZ DELCR1 

0767 

5364 


JMP .-3 

0770 

5761 


JMP I DELAY 

0771 

7 770 

DELCTR, 

- 10 

0772 

0000 

DELCR1, 

0 

0773 

0000 

DELCP2, 

/ 

0 

0776 

10 65 

PAGE 


0777 

0262 

/ 




/ 


1000 

0000 

DISP, 

0 

1001 

1063 


TAD POBUF1 

1002 

3064 


DCA PRO GR 

1003 

1065 


TAD NRCLA 

1004 

70 41 


CIA 

1005 

3066 


DCA CTR 

1006 

1256 


TAD XBFG 

100 7 

6552 


6552 

1010 

32 60 


DCA XVAL 

1011 

1257 


TAD YBEG 

1012 

6562 


6562 

1013 

7200 


CLA 

1014 

4777 


JMS MESAGE 

1015 

2305 


TEXT !SE 

1016 

2440 

T 


1017 

200 5 

PE 


1020 

1 600 

N! 

* 

1021 

4776 


JMS CRTLF 

1022 

7402 


HLT 

1023 

440 7 


CALLIN 

1024 

5121 


FGET FDX 

1025 

0000 


EXIT 

102 6 

4132 

* 

JMS FLO FIX 

1027 

7110 


RAR CLL 

1030 

3261 

1 

DCA XDEL 

1031 

440 7 

DILOOP, 

CALLIN 

1032 

5464 


FGET I PROGR 

1033 

4775 


FDIV FSCA 

1034 

3262 


FMPY F2000 

1035 

0000 


EXIT 

1036 

4132 


JMS FLOFIX 

1037 

1257 


TAD YBEG 

10 40 

6562 


6562 

1041 

7200 


CLA 

1042 

4774 


JMS DELAY 

1043 

1260 


TAD XVAL 

1044 

1261 


TAD XDF.L 

1045 

6552 


6552 


/ SIUKC, 

/ EXIT 

/ DELAY FOR SETTLING 
/ LOAD DELAYCOUNTER 1 

/ DELAY COMPLETE ? 

/ NO 

/ YES* EXIT 


/ PLOT BUFFER 
/ SET BUFFER ENTRY 

/SET COUNTER 
/ SET PEN 

/ STORE INITIAL VALUE IN X 
/ SET INITIAL VALUE IN Y 
/ TYPE TEXT 

/ TYPE CR AND LF 
/ WAIT 

/ GET CLASS WIDTH 

/ CONVERT TO FIX 
/ DIVIDE BY TWO 
/ STORE SPACING 

/ GET VALUE 

/ SCALE VALUE 

/ CONVERT TO FIX 
/ ADD INITIAL VALUE 
/ PLOT 

/ DELAY FOR SETTLING 

✓ PREPARE NEXT CLASS 




1046 

32 60 


DCA X VAL 




1047 

4774 


JMS DELAY 


/ 

DELAY 

1050 

2064 


ISZ PRO GR 




1051 

2064 


ISZ PRO GR 




10 52 

2064 


ISZ PRO GR 


/ 

UPDATE POINTER 

1053 

20 66 


ISZ CTR 


/ 

END OF PLOT ? 

1054 

5231 


JMP DI LOOP 


/ 

NO 

1055 

5600 


JMP I DISP 


/ 

YES, EXIT 

1056 

7000 

XBEG, 

-1000 




1057 

7000 

YBEG, 

-1000 




1060 

0000 

X VAL, 

0 




1061 

0000 

XDEL, 

0 




10 62 

0012 

F2000 * 

12 




1063 

3776 


3776 




10 64 

0000 

/ 

STADEV, 

0 




1065 

0000 

0 


/ 

CALCULATE STANDARD DEV. 

1066 

4777 


JMS MESAGE 


A 

TYPE TEXT 

1067 

2324 


TEXT 1ST 




10 70 

0116 

AM 





1071 

0 401 

DA 





10 72 

220 4 

RD 





1073 

400 4 

D 





1074 

0 52 6 

EV 





1075 

1 101 

IA 





1076 

241 1 

TI 





1077 

1 71 6 

ON 





1100 

7240 

• 

• 





1101 

0000 

1 





1102 

440 7 


CALLIN 




1 103 

51 1 3 


FGET FVARI A 


/ 

GET VARIANCE 

1104 

0002 


SOROOT 




1105 

0014 


OUTPUT 


/ 

TYPE STANDARD DEVIATION 

1106 

0000 


EXIT 




1107 

4776 


JMS CRTLF 


/ 

TYPE CR AND LF 

1110 

5665 

/ 

JMP I STADEV 




11 74 

0761 

f 

PAGE 





11 75 

0 756 






1176 

0657 






1177 

0262 

/ 







/ 

/ ADDITIONAL PART TO 

USE 22 - 

00 




/ AMPLITUDE DISTRIBUTION 





/ DRAWING OF NORMAL 1 

DISTRIBUTION 


• 


/ NUMBER OF DATA AND 
/ 

/ 

/ 

VARIANCE 

COME FROM MAIN PROGRAM 

1200 

7200 

/ 

/ 

/ 

NBSTAR# 

CLA 




1201 

60.46 


TLS 

• 

/ 

ENABLE TELETYPE 

1202 

4777 


JMS CRTLF 


/ 

TYPE CR AND LF 

1203 

4 7 7,7 


JMS CRTLF 




120 4 

4776 


JMS MESAGE 


/ 

TYPE TEXT 

120 5 

1 61 7 


TEXT !NO 




120 6 

221 5 

RM 





1207 

0114 

AL 






17 



1210 

400 A 

D 




121 1 

1 123 

I S 




1212 

2 422 

TR 




1213 

1 102 

IB 




1214 

2 52 4 

UT 




1215 

1117 

10 




1216 

1 600 

N! 




121 7 

aiii 


JMS CRTLF 

/ 

TYPE CR AMD LF 

1220 

4776 


JMS MESAGE 

/ 

TYPE TEXT 

1221 

2305 


TEXT !SE 



1222 

2440 

T 




1223 

2005 

PE 




1224 

1 600 

M! 




1225 

All! 


JMS CRTLF 



122 6 

1 775 


TAD XBF.G 

/ 

SET PEN 

1227 

6552 


6552 

/ 

TO INITIAL POSITION 

1230 

7200 


CLA 



1231 

1 77 4 


TAD YBEG 



1232 

6562 


6562 



1233 

7200 


CLA 



1234 

7 402 


HLT 



1235 

4 40 7 


CALLIN 


. 

1236 

5127 


FGET FI 



1237 

4113 


FDIV FVARIA 



1240 

4310 


FDIV FM2 



1241 

6105 


FPUT FTEIMP2 

/ 

STORE CONSTANT 

1242 

5313 


FGFT FXBEG 



1243 

631 6 


FPUT FX 

/ 

INITIALIZE X 

1244 

0000 


EXIT 



1 245 

1 321 


TAD NB.MD 



1246 

30 66 


DCA CTR 

/ 

SET COUNTER 

1247 

440 7 

NDLQOP* 

CALLIN 



1250 

531 6 


FGET FX 

/ 

GET X 

1251 

20 7 7 


FSUB FXM 

/ 

SUBTRACT MEAN 

1252 

6102 


FPUT FTEMP1 

/ 

stobe TEMPORARY 

1253 

5102 


FGET FTEMP1 



1254 

3102 


FMPY FTEMP1 

/ 

SQUARE 

1255 

3105 


FMPY FTEMP2 

/ 

HAVE EXPONENT 

1256 

0006 


FEXP 

/ 

EXPONENTIAL 

1257 

31 1 6 


FMPY FMAX 

/ HAVE VALUE 

12 60 

4773 


FBI V FSCA 



1261 

37 72 


FMPY F2000 

/ 

SCALE 

12 62 

0000 


EXIT 



1263 

4132 


JMS FLOFIX 

/ 

CONVERT 

1264 

1 774 


TAD YBEG 

/ 

ADD INITIAL VALUE 

1265 

6562 


6562 



1266 

7200 


CLA 



1267 

440 7 


CALLIN 



1270 

531 6 


FGET FX 



1271 

4322 


FDIV F2 

/ 

HAVE X COORDINATE 

1272 

0000 


EXIT 



1273 

4132 


JMS FLOFIX 

/ 

CONVERT 

1274 

6552 


6552 



1275 

7200 


CLA 



1276 

47 71 


JMS DELAY 

/ 

DELAY FOR SETTLING 

1277 

4 40 7 


CALLIN 



1300 

531 £ 


FGET FX 



1301 

1 32 5 


FADD FXSPA 

/ 

UPDATE X 

1302 

631 6 


FPUT FX 



1303 

0000 


EXIT 



1 304 

2066 


ISZ CTR 

/ 

HAVE ALL ? 


18 




/ NO 


130 5 

5247 


JMP NDLOOP 

130 6 

7402 


HLT 

130 7 

5200 

/ 

JMP NBSTAR 

1310 

0002 

Ff-12, 

2 

131 1 

6000 


6000 

1312 

0000 


0 

1313 

0013 

FXBEG* 

1 3 

131 4 

6000 


6000 

131 5 

0000 


0 

131 6 

0000 

FX* 

0 

1317 

0000 


0 

1320 

0000 


0 

1321 

7540 

NBNDj 

-240 

1322 

0002 

F2, 

2 

1323 

2000 


2000 

1324 

0000 


0 ' 

132 5 

0004 

FXSPA, 

4 . 

1326 

3100 


3100 

1327 

0000 

/ 

0 

1371 

0761 

S 


1372 

10 62 



1373 

0756 



1374 

1057 



1375 

10 56 



1376 

0262 



1377 

0657 




/ -2 


/ -1024 DEC 


/ -160 DEC 
/ 2 
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ACCEPT 

0 423 

BIJFF1 

1 400 

CALLIN 

440 7 

CR 

0673 

CRTLF 

0 657 

CTR 

0066 

Cl 3 

01 71 

C2 1 2 

0336 

C21 5 

0340 

C245 

0341 

C340 

0334 

DATAIN 

0526 

DATSUN 

0 540 

DELAY 

0 761 

DFLCR1 

0 7 72 

DELCR2 

0 7 73 

DELCTR 

0771 

DILOOP 

1031 

DISP 

1000 

DONE 

0155 

EXIT 

0000 

FDX 

0121 

FEXP 

0006 

FIXFLO 

01 60 

FK20 48 

0256 

FLO FIX 

0132 

FMAX 

0116 

FN2 

1310 

FN 

0074 

FNRCL2 

00 71 

FSCA 

0756 

FTEMP1 

0102 

FTEMP2 

0105 

FTEMP3 

01 10 

FVARIA 

0.1 13 

FX 

1316 

FXREG 

1313 

FXM 

00 77 

FXSPA 

1325 

FZER 

0124 

FI 

0127 

F2 

1322 

F2000 

10 62 

GO 

0145 

HEAD 

0 400 

INITIA 

0342 

INPUT 

0013 

LF 

0674 

LOOP 1 

0223 

NASK77 

0332 

MESAGE 

0262 

MSRGHT 

0300 

NTP 

0325 

Ml 3 

01 57 

M2 

0337 

M200 

0524 

M3 

0335 

M3000 

0 362 

M40 

0333 

N 

00 67 


20 













iVlBiMD 1321 
NBSTAR 1200 
NDLOOP 1247 
MO LOOP 0 70 7 
NORM 0675 
NRCLA 0065 
OUTPUT 0014 
POBUF1 0063 
POICLA 0261 
PRO GR 00 64 
P200 0525 

REAPR 0516 
SAVE 00 70 
SQROOT 0002 
STADEV 1065 
START 0200 
TAPBEG 0455 
TAPEND 0247 
TYPE 0666 
TYPECH 0301 
XBEG 1056 
XDEL 1061 
XMEAM 0600 
XVAL 1060 
YBEG 1057 
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/ PATCH TO 
/ INPUT OF 
/ 

FTEMP2= 105 
TAPEND=247 
CRTLF= 657 
MESAGE=262 
CALLIN=JMS 
EXIT= FEXT 
INPUT=13 
OUTPIJT= 1 4 
/ 


DFVLR-BRG.-L-LA USE 22-00 
DATA SET ON TELETYPE 


I 7 




*222 

V 



0222 

7000 

/ 

* 455 

NOP 


• 

0455 

0000 

TAP BEG* 

0 



0456 

4777 


JMS CRTLF 

/ 

TYPE CR AND LF 

3457 

4776 


JMS MESAGE 

/ 

TYPE TEXT 

0 4 63 

2 431 


TEXT !TV 



0461 

200 5 

PE 




0 462 

4004 

D 




0463 

0124 

AT 




0464 

0 1 40 

A 




0465 

230 5 

SE 




0466 

2456 

T. 




0467 

400 5 

E 




0470 

1 60 4 

ND 




0471 

402 7 

W 




0472 

1 124 

IT 




0473 

1040 

H 




0474 

4400 





0475 

4777 


JMS CRTLF 



0 47 6 

4777 


JMS CRTLF 

/ 

TYPE CR AND LF 

0477 

5655 

/ 

*52 6 

JMP I TAPEEG 



3 52 6 

0000 

DATAIN* 

0 



0527 

440 7 


CALLIN 



0 530 

0013 


I NPtJT 

/ 

GET DATA 

3531 

610 5 


FPUT FTEMP2 

/ 

STORE 

0532 

0000 


EXI T 



3533 

5300 

/ 

* 500 

JMP 500 



3500 

10 57 


TAD 57 

/ 

GET TERMINATING 

0 501 

1 30 7 


TAD M244 

/ 

$ 

0502 

7640 


SZA CLA 

/ 

END OF INPUT ? 

0503 

5726 


JMP I DATAIN 

/ 

NO* CONTINUE 

0 50 4 

4777 


JMS CRTLF 

/ 

TYPE CR AND LF 

050 5 

4777 


JMS CRTLF 



050 6 

5775 


JMP TAPEND 

/ 

YES 

0 50 7 

7534 

M2 44* 

-244 




* 

/ 

*540 




0 540 

0000 

DATSUM* 

0 



0 541 

7000 


NOP 



0 542 

7000 


NOP 



0543 

7000 


NOP 




CHARACTER 


22 


.» . V? V 



CALLIN 


D 544 

440 7 

0575 

0247 

05/6 

0262 

0577 

0657 


CALL IN 440.7 
CRTLF ,0 657 
DATAIN 0 526 
DATSUM 0540 


EXIT 

FTEMP2 

INPUT 

MESAGE 

M2 4 4 

OUTPUT 

TAPBEG 


0000 
0105 
0013 
0262 
0 50 7 
0014 
0 455 


TAP END 02 47 
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FLOW CHART 
DFVLn-BRG .-L-LA 
USE 22-00 



LEADERS 
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t 



v# 

ri-; 
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an,; 





t 























1 



GET VALUE 

FROM BUFFER 


1 


SCALE VALUE 

VAL= ~1000 8 + VAL • 2000 g /FSCA 

_1 



LOAD Y REGISTER 




X-X+AX 


I 


LOAD X REGISTER 



LOAD Y REGISTER 
WITH -1000 e 
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r-x 




J 













